CICA 1995 September (Japanese)/CICA Shareware for Windows CD-ROM (Walnut Creek) (September 1995) (Japanese) (Disc 1).iso/disc1/misc/help30.exe/HLPDEF.SMM

INI File | 1992-06-18 | 6.0 KB | 724 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP LaserJet III
[lang]
    1
[desc]
    Creates a definition button using the text you select.




    708917915
    22
    695084368
    44
    1
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    4
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    8
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    38 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#278,9360>' This macro creates a definition button using the text you select.

<:#278,9360>' It copies the selected text and pastes it immediately after the original text.

<:#278,9360>' It then capitalizes the definition button text, converts any spaces to underlines, protects the text,

<:#278,9360>' underlines the original text, and places the insertion point after the button text.

<:#278,9360>' NOTE: This macro assumes that the text you want to use is selected, and that the text matches

<:#278,9360>' the text in a Context footnote for a help topic. DO NOT double-click on a single word to select

<:#278,9360>' it because this selects both the word and the space after the word.

<:#278,9360>

<:#278,9360>function def()

<:#278,9360>declare stripit(name)

<:#278,9360>name = curshade$()

<:#278,9360>if name = ""

    message("Select the text for the definition cross-reference and run this macro again.")

<:#278,9360>    exit function

<:#278,9360>endif

<:#278,9360>underline()

<:#278,9360>type("<[>esc]")

<:#278,9360>protectedtext()

<:#278,9360>type(ucase$(stripit(name)))

<:#278,9360>specialeffects(256, "")

<:#278,9360>type("<[>esc]")

<:#278,9360>NormalText()

<:#278,9360>end function

<:#278,9360>

<:#278,9360>function stripit(name)

<:#278,9360>spos = 1

<:#278,9360>newname = ""

<:#278,9360>while (1)

<:#278,9360>    txt = strfield$(name, spos, " ")

<:#278,9360>    if txt = "" or txt = -1

<:#278,9360>        break

<:#278,9360>    endif

<:#278,9360>    newname = strcat$(newname, "_", txt)

<:#278,9360>    spos = spos + 1

<:#278,9360>wend

<:#278,9360>newname = right$(newname, (len(newname) - 1))

<:#278,9360>return newname

<:#278,9360>end function

>

[Embedded]
00005513
>
[macsum] 2
def 0 0 2 8
stripit 273 1 4 24
[macse]
14 def
0 24
13
8 1
6 1
7 ""
18 0
11 00000149
0 3 "Select the text for the definition cross-reference and run this macro again."
6 0
15
9
2 256 1
0 6 "[27]"
2 188 1
16 stripit "{1}"
13
0 18 [X]
13
0 6 [X]
2 258 1 256 ""
0 6 "[27]"
2 253 1
6 0
15
9
14 stripit
5 1
8 2
7 ""
8 3
5 1
11 00000211
0 20 "{0}" "{2}" " "
13
8 4
6 4
7 ""
18 0
6 4
5 -1
18 0
1 2
11 00000147
10 00000211
0 16 "{3}" "_" "{4}"
13
8 3
6 2
5 1
3 0
8 2
10 00000033
0 14 "{3}"
13
5 1
3 1
0 807 "{3}" [X]
13
8 3
6 3
15
9
6 1
15
9
00005538